home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / bbs / cddk9606.zip / HEADERS.ARJ / WIN95.INT < prev    next >
Text File  |  1996-06-14  |  4KB  |  128 lines

  1.  
  2. { ───────────────────────────────────────────────────────────────────────── }
  3. {  WIN95: Windows 3.x and Windows 95(tm) Support Routines                   }
  4. {  Copyright 1996 David Pinch ∙ All Rights Reserved Worldwide               }
  5. { ───────────────────────────────────────────────────────────────────────── }
  6.  
  7. UNIT Win95;
  8.  
  9. {$B-} { . . . . . . . . . . . . . . . . . . . . Shortcut boolean evaluation }
  10. {$F+} { . . . . . . . . . . . . . . . . . . . .  Force far calls for safety }
  11. {$I-} { . . . . . . . . . . . . . . . . . . . Disable input/output checking }
  12. {$O+} { . . . . . . . . . . . . . . . . . . Allow this unit to be overlayed }
  13. {$Q-} { . . . . . . . . . . . . . .  Do not generate overflow-checking code }
  14. {$R-} { . . . . . . . . . . . . . . . . Do not generate range-checking code }
  15. {$S-} { . . . . . . . . . . . . . . . . Do not generate stack-checking code }
  16. {$X+} { . . . . . . . . . . . Extended syntax for pChars and function calls }
  17.  
  18. INTERFACE
  19.  
  20. {#Start}
  21.  
  22. PROCEDURE CloseClipboard;
  23.   {
  24.   PURPOSE  : Closes the Windows clipboard.
  25.  
  26.   EXAMPLE  : PROCEDURE WriteFirstNameToClipBoard;
  27.                BEGIN
  28.                OpenClipboard;
  29.                SetClipBoardDate(User.FirstName);
  30.                CloseClipboard;
  31.                END;
  32.  
  33.   SEE ALSO : EmptyClipboard, OpenClipboard
  34.   }
  35.  
  36.  
  37. PROCEDURE EmptyClipboard;
  38.   {
  39.   PURPOSE  : Empties the Windows clipboard.
  40.  
  41.   EXAMPLE  : BEGIN
  42.              OpenClipboard
  43.              EmptyClipboard
  44.              CloseClipboard
  45.              END;
  46.  
  47.   SEE ALSO : CloseClipboard, OpenClipboard
  48.   }
  49.  
  50.  
  51. FUNCTION EnsureDOS7:Boolean;
  52.   {
  53.   PURPOSE  : Returns TRUE if the local operating system is MS-DOS 7.0
  54.              (Windows 95) or later.  Returns FALSE for all earlier versions.
  55.   }
  56.  
  57.  
  58. PROCEDURE OpenClipboard;
  59.   {
  60.   PURPOSE  : Opens the Windows clipboard.
  61.  
  62.   NOTES    : You must call this procedure before using any other
  63.              clipboard procedures.
  64.  
  65.   SEE ALSO : CloseClipboard, EmptyClipboard
  66.   }
  67.  
  68.  
  69. {#Pause}
  70. FUNCTION SetApplicationTitle(p:pChar):Boolean;
  71.   {
  72.   PURPOSE  : Sets the title of the application.
  73.  
  74.   NOTES    : a. Do not exceed 79 characters plus the terminating null zero.
  75.              b. In some cases, it is possible for the function to return
  76.                 a successful status, even though the application title was
  77.                 not actually changed.
  78.              c. The title is removed if p points to 0000:0000.
  79.   }
  80. {#Resume}
  81.  
  82.  
  83. PROCEDURE SetClipboardData(p:pChar);
  84.   {
  85.   PURPOSE  : Copies the specified text to the Windows clipboard.
  86.  
  87.   NOTES    : The clipboard must be open (see OpenClipboard).
  88.  
  89.   EXAMPLE  : PROCEDURE WriteString(p:pChar);
  90.                BEGIN
  91.                OpenClipboard;
  92.                SetClipboardData(p);
  93.                CloseClipboard;
  94.                END;
  95.  
  96.   SEE ALSO : CloseClipboard, OpenClipboard
  97.   }
  98.  
  99.  
  100. PROCEDURE SetFocus(VM:Word);
  101.   {
  102.   PURPOSE  : Sets the focus to the specified virtual machine.
  103.  
  104.   NOTES    : Use VM=0000h to specify the current virtual machine.
  105.              Windowed DOS boxes are set to full screen.
  106.   }
  107.  
  108.  
  109. FUNCTION WinOldApVersion:Word;
  110.   {
  111.   PURPOSE  : Identifies the WinOldAp version.
  112.  
  113.   NOTES    : WinOldAp is a Windows extension that allows old applications
  114.              to access DDE, menus, and the clipboard.
  115.  
  116.              Zero is returned if this version of WinOldAp does not
  117.              support clipboard access.
  118.  
  119.   SEE ALSO : CloseClipboard, OpenClipboard, SetClipboardData
  120.   }
  121.  
  122.  
  123. IMPLEMENTATION
  124.  
  125. { The source code is available upon registration. }
  126.  
  127. END.
  128.